home *** CD-ROM | disk | FTP | other *** search
/ Light ROM 1 / LIGHT-ROM 1 (Amiga Library Services)(1994).iso / ffdisks / d965.lha / UChess / Unpack->Floppy < prev    next >
Text File  |  1994-02-15  |  1KB  |  62 lines
  1. .Key  ""
  2. set src1  "UChess269.lha"
  3. set dst  "UChess"
  4.  
  5. echo ""
  6. echo "  This script will unpack the following lha archives:"
  7. echo ""
  8. echo "  $src1 => $dst"
  9. echo ""
  10.  
  11. lab GETDRIVE
  12. echo "  Which drive do you want to unpack to? [0,1,2,3] "  NOLINE
  13. failat 20
  14. skip >NIL: ? 
  15.  
  16. lab 0
  17.   set drive "DF0:"
  18.   skip HAVEDRIVE
  19. ;
  20. lab 1
  21.   set drive "DF1:"
  22.   skip HAVEDRIVE
  23. ;
  24. lab 2
  25.   set drive "DF2:"
  26.   skip HAVEDRIVE
  27. ;
  28. lab 3
  29.   set drive "DF3:"
  30.   skip HAVEDRIVE
  31. ;
  32.  
  33. lab HAVEDRIVE
  34. ask "  Do you have a blank unformatted disk in drive $drive?"
  35. if not WARN
  36.     echo ""
  37.     echo "  Try again when you do ..."
  38.     echo "  All Done.  Click close gadget to get rid of window."
  39.     endcli
  40. endif
  41.  
  42. echo ""
  43. echo "  ==> sys:system/format drive $drive name $dst FFS NOICONS"
  44. sys:system/format drive $drive name $dst FFS NOICONS
  45. echo "  ==> :c/lha -axm x $src1 $dst:"
  46. :c/lha -axm x $src1 $dst:
  47. echo ""
  48.  
  49. echo "  All Done.  Click close gadget to get rid of window."
  50. endcli
  51.  
  52.  
  53. endskip
  54. echo "  Invalid Drive Selection, Please try again!"
  55. skip back GETDRIVE
  56.  
  57.  
  58.  
  59.  
  60.  
  61.  
  62.